with Ada.Text_Io; use Ada.Text_Io;
with Chaines.controlees; use Chaines.Controlees;

procedure Test_Chaines is
  --- S1 : constant String := Lire_ligne;
  --- S2 : constant String := " AWESOME!!!!";
   C : Chaine_Controlee  := Controler("test");
   C2 : Chaine_Controlee := C;

begin

   Put_Line(Dechainer(C));

   --  Put(CONCAT(S1,S2));
   --  Put(Tri(S1));

end Test_Chaines;
